while loop in visual basic 6.0